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NESTE NÚMERO 


MELHORE A SUA DATILOGRAFIA 


Incorpore números e sinais de pontuação ao seu 
aprendizado de datilografia e aprenda a utilizar a 
tBCia CDIAPES mia. rasas dO 281 





JOYSTICKS 


Versátil e barato, o joystick pode ser usado tan- 
to para animar jogos como em aplicações mais 
BORA nuas e Ea AO ra ua 2094 





ORDENAÇÃO PELO MÉTODO DE BOLHAS 


Como globos de ar em ascensão no interior de um 
líquido. Como escrever uma sub-rotina de ordena- 
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Divirta-se com um joguinho de ação 
rápida e aprenda ao mesmo 

tempo a trabalhar com as teclas de 
números, ampliando a sua 
habilidade como datilógrafo. 


Depois de ter estudado as duas pri- 
meiras lições de datilografia, você já está 
provavelmente familiarizado com as te- 
clas de letras e com os sinais de pontua- 
ção das três fileiras inferiores do tecla- 
do. Até apora, porém, não tocamos nas 
importantes teclas numéricas (muito 
usadas, aliás, na digitação de pro- 
gramas.) 

Da mesma forma, ainda não ensina- 
mos as formas de manipulação das te- 
clas para se obter letras maiúsculas ou 
minúsculas, nem explicamos os sinais de 
pontuação adicionais e demais símbolos 
disponíveis no teclado. 

Esta lição será dedicada às teclas ain- 
da não estudadas. Nela, apresentaremos 
também um pequeno e divertido exer- 
cício, que fará com que você melhore a 
sua velocidade, precisão e ritmo no tra- 
balho com o teclado. 





ACRESCENTANDO OS NUMEROS 


8 RENNÇE 8 


MELHORE A SUA 
DATILOGRAFIA 











440 LET EN=INT (RND*19)+1 
530 PRINT AT 10,13;' 
“2: PRINT AT 10,13;TS 


540 FOR M=1 TO LEN TS: PRINT 
AT 9,11+M;” * ci 

610 FOR N=1 TO 5: RESTORE : 
LET AN=INT (RND*24)+1: FOR K=1 


TO RN: READ XS: NEXT K 
1010 PRINT AT 12,6;,55 


2000 DATA "MC6B0SE”,"VALOR”,"UL 
TIMO","ZB0A”","RELAXE”,"6502","A 
37XZ","1024", PVASTO”," JUNCO”,"R 
ETORNO”,"67VUDG" 

2010 DATA "APENAS" ,"AGITADO”,'/ 
4L583”","REDONDO”,"LINEAR","1986 
*,"30123","CONGELADO”","4MHBZ”,"W 


X101","64MB”,"VIDEO" 





10 0B$=" LAZSID4FSC6H7JBK9LO:-;* 
210 AP=1252 

220 FOR K=1 TO 22 

320 AP=1252+BND (22) 

430 P$=MIDS$ (OBS, RND(22),1) 

1020 PRINT €261,0BS | 
9000 DATA MC6809E, VALOR, "ULTIMO 
:”, Z80A, RELAXE, 6502,A37XZ,-1024 
«| VASTO, JUNCO 

9010 DATA RETURN, AB47VDG, 145,22 
|, "APENAS," , AGITADO, 74L983,-93.4 
1, REDONDO, LINEAR 

9020 DATA PROCESSO, CONGELADO, TR 
AZ, 1986, DESENHO, SANGUE ,842.52," 
301,123”",350KG 


Para treinarmos a datilografia com 


a fileira do teclado que contém os alga- 
rismos, basta fazer algumas modifica- 
ções no programa apresentado nas lições 
anteriores do curso (páginas 253 e 276). 

Desta forma, carregue o último pro- 
grama utilizado e digite as linhas adicio- 
nais, expostas a seguir, Como você ve- 
rá, algumas delas irão apenas substituir 
linhas já existentes, ao passo que outras 
serão adicionadas ao programa: 


30 LET S$="1A2S3D4F5G6H7JSK9L 
o” 

210 FOR K=6 TO 24 

230 LET R$=85(K-5) 

320 LET RN=INT (RND*19) 1 

330 PRINT AT 10,RN+5;"*": LET 

R$=SS (RN) 

350 PRINT AT 10,RN+5;" " 


10 0BS = "1A253D4F5G6H7J8K9LO; 


210 AP = 8 

220 FORK = 1 TOZ2:AP = AP + 
1: GOSUB 1100: NEXT 

320 AP = 9 + INT ( BND (1) * 2 
3) 


420 FOR K = 1] TO 20:P$ = MIDS 


(OBS, INT ( RND (1) * 22) + 1, 
1) 
640 P = 1: UTAB 11: HTAB 2: PRI 
NT PS 


660 VTAB 15: HTAB P + 1: PRINT 
MIDS (P$S,P,1) 


1010 VTAB 12: HTAB 9: PRINT OB 


5 

Ras DATA  MC6809E, VALOR, "ULTI 
",Z80A, RELAXE, 6502 -A37XZ2,-10 

Za ,VASTO, JUNCO 

9010 DATA RETURN, AB47VDG, 145. 

22,"APENAS,",AGITADO,74L583,-93 

dl REDONDO, LINEAR 

9020 DATA PROCESSO, CONGELADO 


ACRESCENTE NÚMEROS 
À TECLA <SHIFT> 
DESENVOLVA UM RITMO 
ERA REGULAR 
VELOCIDADE E PRECISÃO 


|, TRAZ, 1986, DESENHO, SANGUE ,8B42.5 
2,"301,43”",350KG 

Pr 

10 0BS=" 1A2S3D4dF5G6H7JBK9LOÇ-=" 
': Z5S=CHRS (219) :585="LLO O2 G” 

210 AP=355 

220 FOR K=1 TO 22 

320 AP=356+INT (RND(1)*22) 

430 P$S=MIDS (0BS, INT (RND(1)*22)+ 
1,1) 

1010 LOCATE 2,12:PRINTOBS 

9000 DATA MC6B09E, VALOR, "ULTIMO 
", Z80A, RELAXE,6502,A37XZ,-1024 
| VASTO, JUNCO 

9010 DATA RETURN,A8B47VDG,145.22 
| "BOMENTE,",AGITAR,74LSB3,-93.4 
1, CÍRCULO, LINEAR 

9020 DATA PROCESSO, FRIO, TRAZ, 19 

86, DESENHO, SANGUE ,842.52,CAÇA,3 

5O0KG 


"Quando o programa for rodado, um 
menu contendo os cinco níveis já conhe- 
cidos será apresentado na tela; você de- 
verá então optar por um deles. Como 
das vezes anteriores, existirão muitas 
combinações possíveis, dependendo do 











número de teclas a serem incluídas nos 
exercícios. Nos níveis mais baixos de di- 
ficuldade, o computador propora exer- 
cicios em que as teclas numéricas e, al- 
gumas vezes, de pontuação serão com- 
binadas aleatoriamente com as outras 
teclas, que você já conhece das duas pri- 
meiras lições. Essa combinação dificul- 
tará as coisas para você, e o obrigará a 
não se concentrar apenas nas teclas nu- 
méricas. 

Nos níveis mais altos de dificuldade, 
o computador pedirá que você digite 
uma mistura de palavras, grupos de nú- 
meros e combinações de letras e algaris- 
mos. As palavras e números seleciona- 
dos se encontram nas declarações DA- 
TA, quase no final do programa. Eles 
podem ser trocados, caso você queira 
aumentar o desafio depois de se fami- 
liarizar bem com os exercícios originais. 
Entretanto, lembre-se de manter o mes- 
mo número de palavras (ou grupo de ca- 
racteres); do contrário, ocorrerá um er- 
ro de execução quando o programa não 
encontrar o número correto de itens em 
DATA. 

Uma vez dominadas as teclas numé- 
ricas, passe para a lição seguinte, cujo 
objetivo é praticar com os caracteres 
acessíveis apenas por intermédio da te- 
cla <SHIFT>. 
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AS LETRAS MAIÚSCULAS 





A tecla <SHIFT> corresponde à 
alavanca de maiúsculas de uma máqui- 
na de escrever comum. Em alguns com- 
putadores, essa função também pode ser 
desempenhada pela <CAPS LOCK>. 
Para aprender a usá-las, adicione as li- 
nhas abaixo à última versão do progra- 
ma (novamente, algumas linhas serão 
inteiramente substituídas): 


20 POKE 23658,0: LET ER=0 
30 LET SS="A!aSesDtdFSfGtoHth 
J'3K(kKL) 10” 
210 FOR K=2 TO 29 
230 LET A$=55(K-1) 
320 LET RN=INT (RND*28)+1 
330 PRINT AT 10,RN+1;"*": 
R$=55 (RN) 
350 PRINT AT 10,RN+1;" * 
440 LET RN=INT (RND*28)+1 
610 FOR N=1l TO 4; RESTORE : 
LET ARN=INT (BRND*24)+1: FOR K=1 
TO RN: READ XS: NEXT K 
1010 PRINT AT 12,2;55 
2000 DATA "$235.50","PRINT4&","E 
H1200","23.5%”","Conta”, "LONDRES 
","Eles”","156412"," (abaixo)”,"H 
+9=1D","**Obs**", aeb d! 
EQMOSDATA "qm fi-: “Extra” 


LET 








;"Bei 


ja-flor”,"Lugar”,"4*4=16","Quem 
?7","6:10pm”","Nos”","515.40","Dir 
igir”,"ATENCAO”,"100/4” 


10 0B$="!|A"+CHAS (34) +" S4DSFICLE 
J(K)L*=+" 

20 POKE 282,0:CLS 

210 AP=1250 

220 FOR K=i TO 21 

320 AP=1250+RND (21) 

430 PS=MIDS (0BS,RND(21),1) 

999 POKE 282,255:CLS:END 

1020 PRINT €259,0BS 

9000 DATA PRINTt4,Mostre,4.H4000, 
Fora!!, (abaixo),H+9=1D,5500.10, 
D/100%, Eles, **obs** 

9010 DATA Extra,Carqa,DIARIO,Co 
nta,Mes,Resposta,Hoje,Gerente,S 
etor 

9020 DATA LONDRES, praias sad Toque, 


O Direto 


[| 


10 OBS = FIA” + CHARS 
IDSFIGAH' JK) L+*=<27" 


(34) + TS 


220 FORK = 1 TOZ4AP-=- AP + 
1: GOSUB 1100: NEXT 
320 AP = 9 + INT ( BND (1) * 2 


5) 











À TO 20:P3 = 
* 44) 


420 
(0BS, 
1) 
9000 DATA PR$f,Mostre,5H4000,F 
ora!!, (abaixo),H + 9 = 1D,Cz5 5 
00.10,D/100%,Eles,**Obs** 
9010 DATA Extra,Carqa,Diario, 
Conta,Mes,Hoje,Resposta,Gerente 
Setor 
9020 


MIDS 
+ 1), 


FOR K = 
INT ( RND (1) 


DATA LONDRES, Concha, Toqu 


ar, Campo, Direto 

|] 
A 
10 0B$=" !AGSADSFIG"+CHRS (34)+"H 
LJ*K(L)Ç +7>":2Z5=CHAS (219) :55=" 
L1IO0O O2 G* 
220 FOR K=1 TO 24 
320 AP=356+INT (RND(1)*24) 
430 PS=MIDS (0BS, INT (RND(1)*24)+ 
Es d) 
9000 DATA PRINTt4,Mostra,tH4000, 
Fora!!, (abaixo),H + 9 = 1D,Cz5 
500.10,D/100%,Eles,** Obs ** 
9010 DATA Extra,Cargo, DIÁRIO, Co 
nta,Mês,Resposta,Hoje,Gerente,sB 
eção 
9020 DATA LONDRES, Concha, Toque, 
:7;7,Sucesso,Beija-flor,Lugar,C 
ampo,Gula 


O TRS-Color não imprime letras mi- 
núsculas na tela. Em vez disso, exibe-as 
em video inverso (letras claras sobre 
fundo escuro). 

Nos micros da linha Apple que dis- 
põem de minúsculas, mude a tecla sele- 
tora para minúsculas ao digitar as linhas 
DATA. Infelizmente, os micros da linha 
Apple II+ padrão, que não contam 
com letras minúsculas, não conseguirão 
rodar o programa a seguir. Nos micros 
da linha MSX, certifique-se de que a te- 





8 APLICAÇÕES 8 


cla <CAPS> está desativada. 

Os níveis mais baixos de dificuldade 
do programa apresentam agora Os ca- 
racteres que só estão disponíveis quan- 
do as teclas são pressionadas simulta- 
neamente com o comando <SHIFT>: 
pontuação, símbolos matemáticos, etc... 
Eles estão misturados com as letras da 
fileira central do teclado, o que signifi- 
ca que você deve retornar a eles toda vez 
que pressioná-los. 

Nos níveis mais altos são apresenta- 
dos palavras e grupos de caracteres de 
uma lista interna, tal como antes; ago- 
ra, porém, você encontrará as letras 
maiúsculas e outros simbolos que só po- 
dem ser obtidos com o <SHIFT>, mis- 
turados com as letras minúsculas. 

Conhecidos esses exemplos particu- 
lares de teste, substitua as declarações 
DATA por um novo conjunto de dados 
(lembre-se de manter o mesmo número 
total de palavras). 

Passe para a próxima seção apenas 







quando estiver encontrando — sem he- 
sitação e sem olhar para o teclado — to- 
dos os caracteres com que treinou. 





“JOGO DE VELOCIDADE 


Um dos modos mais eficazes de se 
melhorar a precisão e a velocidade de 







datilografia consiste em pressionar as te- 
clas ao compasso de um metrônomo 
(instrumento que serve para regular os 
andamentos musicais). Este deve ser 
acelerado à medida que o movimento de 
seus dedos se tornar mais rápido e 
preciso. 

Mas por que dar-se ao trabalho de 
utilizar um metrônomo, quando o seu 
computador possui um relógio embuti- 
do? O próximo programa é um novo e 
completo exercício de digitação, plane- 
jado como um jogo, onde a contagem 
depende do seu desempenho no teclado. 
Ele é composto por duas partes, A pri- 
meira, exibe uma linha de caracteres se- 
lecionada aleatoriamente — você tem 
que digitar, em sequência, os caracteres 
à medida que forem aparecendo. A se- 
gunda parte é mais dificil — agora, os 
caracteres são lançados aleatoriamente 
na tela, um por um; deste modo, você 
não tem idéia do que virá a seguir. 





DIGITE AS PALAVRAS 


Hoje Mes Setor 


E. BE WV/ED. 


+ 





Antes de iniciar o teste, selecione o 
seu próprio nível de dificuldade. Isso de- 
ve ser feito dizendo-se ao computador 
com que velocidade você quer que as le- 
tras sejam exibidas — em outras pala- 
vras, quantos caracteres por minuto vo- 
cê quer digitar. Então, o computador es- 
tabelecerá um tempo limitado, dentro 
do qual você deve digitar cada caracte- 
re; do contrário, será emitida uma con- 
tagem de erros. No primeiro nível, isso 
é feito por intermédio de um indicador 
móvel que mostra qual letra deveria es- 
tar sendo digitada; no segundo nível, o 
caractere é iluminado por algum tempo. 

Ao começar O primeiro teste, você 
pode escolher se quer o teclado normal 
(com letras, apenas) ou teclado comple- 
to (com todos os símbolos). E antes de 
passar para o segundo nível (o teste dos 
caracteres) você deve decidir quanto 
tempo é capaz de sustentá-lo, O compu- 


tador perguntará quantos caracteres, no 283 











in T 
| | 
| | | | | | 4 


total, você quer que façam parte do 
teste. 

Imediatamente depois de ter exibido 
todos os caracteres, o computador pa- 
rará e fornecerá uma contagem basea- 
da nos seus erros. 

Não é apenas a velocidade total de di- 
gitação no computador que conta nesse 
teste de desafio: você precisará também 
desenvolver um ritmo constante. Para 
ajudá-lo a adquirir esse ritmo, o com- 
putador dará um sinal sonoro assim co- 
mo um sinal visual de prontidão para ca- 
da letra. 

Agora digite o programa propria- 
mente dito, e teste a sua habilidade co- 
mo datilógrafo: 


10 BORDER 7: PAPER 7: INK O: 
CLS 

20 LET a$="ABCDEFGHIJKLMNOPQR 
STUVWXKYZ” 

30 LET aS=ag+"abcdefghijklmno 
parstuvwxyz” 

40 LET a$=a$+"12345678901645t%t 


8 * () Lad 

50 LET. a$=aS+CHAS (34)+"<>;-+ 
="7/%,." 

60 PRINT INVERSE L;AT 6,7;" 


TESTE 1 OU 2? € 
70 IF INKEYS="" THEN GOTO 70 








| “a 

e 
” 4 ] 
E F 
ih , k 


BO LET i1S=INKEYS: IF 15="2” 
THEN GOTO 400 

90 IF 15<>"1”" THEN GOTO 70 
100 CLS INPUT "Quantos carac 
teres por minuto? ";cpm 

110 LET t=3000/cpm 

120 LET s$="" 

130 FOR n=1 TO 30 

140 LET s$=s$+aS (INT (ARND*84)+ 
1) 

150 NEXT n 

160 PRINT BRIGHT 1;AT 11,1;95S 
200 GOSUB 800: LET er=0: FOR r 
=] TO 30 

210 POKE 23672,0: POKE 23673,0 
220 PRINT AT 10,r-1;" *" 

230 SOUND .02,20 

240 IF PEEK 236/2+256*PEEK 
236/73>=t THEN LET er=er+l: 

















| 
a 
ú | |] 
À | 
| Ee l | | 
r ] l | 
f | | 
1 | | 
h | | 


GOTO 300 

250 LET 1S=INKEYS: IF 1$="" 
THEN GOTO 240 

260 IF iS$=sS(r) THEN 
l2,r;**": GOTO 280 
270 LET er=er+1 

280 IF PEEK 23672+256*PEEK 
23673<t THEN GOTO 280 

300 NEXT r 

310 PRINT AT 16,3;"VOCÊE ERROU 
".er;" DAS 30" 

320 FOR f=1 TO 200: NEXT £ 
330 GOTO 20 
400 CLS : INPUT "Numero de tec 
las por minuto? ";cpm 

410 INPUT "Numero de caractere 
g?"ir 

420 INPUT "(N)Jormal ou (E)sten 
dido? "; LINE mS 

430 IF m$="N" OR m$="n” THEN 
LET a$=aS( TO 52): GOTO 450 
440 IF mS$<>"E” AND mS<>"e” 
THEN GOTO 420 

450 LET t=3000/cpm 


PRINT AT 





| 





o TI MN Jo 


dd do od É 


pi aids Pam 





E rito na! 


1 
2 
2 














460 GOSUB BO0 
470 LET er=0Q 

480 FOR n=1 TO r 

490 POKE 23672,0: POKE 23673,0 

500 LET r5=aS (INT (AND*LEN as) 
+1) 
510 PRINT INVERSE 1;AT 10,15; 
r$; INVERSE O;AT 11,15;" * 
520 SOUND .02,20 


E 530 IF PEEK 236/2+256*PEEK 
23673>2=t THEN LET er=er+l: 
GoTo 580 


E 
a 


540 LET 1S=INKEYS: IF 1$9="" 
THEN GOTO 530 
550 IF 15=r5$ THEN 
115:"**: GOTO 570 
560 LET er=er+l 
520 IF PEEK 23672+256*PEEK 
23673€<t THEN GOTO 570 

580 NEXT n 

590 PRINT AT 16,3;"VOCÊE ERROU 
".er;" DAS ";n-1 


PRINT AT 11 


30 PRINT 8102,"DIGITE (0) PARA 
SAIR” 

40 AS=INKEYS:IF AS<S"0” OR AS>"2 
" THEN 40 
50 ON VAL 
+: 200 

60 POKE 282,255 

TO ERSUSNG=" Bose” 

BO GOTO 20 

200 CLS: INPUT"DIGITE QUANTAS TE 
CLAS PRESSIONADAS POR MINUTO” ;K 
P 


(AS)+1 GOSUB 1000,600 


210 IF KP<1l THEN 200 

220 INPUT "DIGITE O NUMERO DE C 
ARACTERES ";NC 

230 IF NC<1 THEN 220 

240 NM=NC 
































FOR f=1 TO 200: NEXT f 
à Goto 20 
800 LET cS="5..4..3..2..1..0" 
810 FOR n=1 TO 16 
820 PRINT AT 2,5+n;csS (n) 
830 PAUSE 10 
840 NEXT n 
850 SOUND .2,10 
| 860 PRINT AT 2,O;TAB 31;" " 
| 870 RETURN 


EE 


10 CLS 
20 PRINT 870,"QUAL TESTE (1 OU 
2)?" 











id 


a 


“250 PRINT: PRINT"NORMAL OU ESTEN 


DIDO (N/E)?” 
260 AS=INKEYS:IF AS<>"N” AND AS 
<>"E” THEN 260 

270 RN=90:ST=32:1IF A$="N” THEN 
RN=58:ST=64 

280 POKE 282,0 

290 TM=3000/KP 

300 CLSO:PRINT” PRESSIONE A TEC 
LA DEPOIS DO BIP ” 

310 PRINT 6238,”  ";:PRINT 627 
0,” — ";cPRINT 0302,”  *; 

320 W$=CHRS (RND (RN) +ST) 

330 IF W$>"Z” AND WS<"a” THEN 3 
20 

340 PRINT €271,WS; 

350 TIMER=0 

360 AS=INKEYS:IF A$="" THEN 380 
370 BS=AS:IF B$=W$ THEN SCREEN 
Dad 

380 IF TIMER <TM THEN 360 

390 SOUND 150,1:IF B$="" THEN 3 
50 

400 W$=CHRS (RND (RN) +ST) 

410 IF WS>"Z” AND WS<"a” THEN 4 
00 

420 PRINT €271,WS; 


430 TIMER=O 

440 AS=INKEYS:IF AS="" THEN 460 
450 BS=AS:IF BS=WS THEN SCREEN 
0,1 

460 IF TIMERC<TM THEN 440 

470 SOUND 150,1 

480 IF B5<>W5 THEN ER=ER+I:GOTO 
490 

490 POKE 1295,128 

500 NC=NC-1:IF NC>0 THEN 400 
510 CLS: PRINT €448,"COM";KP;"TE 

CLAS PRESSIONADAS POR MINUTO” 
520 PRINT "VOCE ERROU”; ER;"DAS”" 
: NM 

530 RETURN 





600 CLS: INPUT"DIGITE QUANTAS TE 
CLAS PRESSIONADAS POR MINUTO" ;K 
P 

610 IF KP<1l THEN 600 

620 PRINT:PRINT"NORMAL OU ESTEN 
DIDO (N/E)?7” 

630 AS=INKEYS:IF AS<>"N” AND AS 
<2"E” THEN 630 

640 RN=91:ST=31:IF AS="N” THEN 
RN=58:5T=64 

650 TM=3000/KP 

660 CLS:POKE 282,0 

670 FOR K=1 TO 32 

680 CR=RND(RN)+ST 

690 IF CR>290 AND CR<9/ THEN CA= 
32 

700 WS$=WS+CHRS (CR) 

710 NEXT 

720 AP=1248 

730 POKE AP, 106 

740 PRINT €256,W5 

750 TIMER=0 

760 AS=INKEYS:-IF AS="" THEN 780 
770 BS=AS 

"BO IF TIMER<XTM THEN 760 

790 SOUND 150,1:IF B5="" THEN 7 
50 

800 TIMER=0 

810 AS=INKEYS:IF A$="" THEN B30 
820 BS=AS 

830 IF TIMER<TM THEN 810 

840 SOUND 150,1 

850 IF BS<>MIDS(WS,AP-1247,1) T 
HEN ER=ER+1:GOTO 860 

855 POKE AP+64,94 

B60 POKE AP,96 

B70 AP=AP+1 
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B80 IF AP=1280 THEN 910 

B90 POKE AP,106 

900 B$="".GoTo 800 

910 CLS:PRINT €6481,"COM";KP;"TE 
CLAS POR MINUTO” 

920 PRINT"VOCE ERROU” ER; 
£” ; : RETURN 

1000 CLS 


a 


10 CLS: Z$=CHRS (219): R=RND(-TIME 


"DAS 3 


| 

20 LOCATE 5,3: PRINT"QUAL TESTE? 
(1-=2)" 

30 LOCATE 5,4: PRINT"DIGITE S0O> 

PARA TERMINAR” 

40 AS=INKEYS:IFAS<"0"ORAS>"2"TH 

EN4 0 

50 ON VAL(AS)+1 GOSUB 1000,600, 

200 

6O ER=0:W5="":BS="" 

70 GOTO20 

200 CLS: INPUT"TOQUES POR MINUTO 

“:KP 

) IFKP<ITHEN200 

INPUT"NÚMERO DE CARACTERES" 


IFNC<ITHEN220 

NM=NC 

PRINT: PRINT' TECLADO: 
TOTAL (L/T)?' 
AS=INKEYS: IFAS<>"LCANDASS>" 


LETRAS 


260 


"THENZ60 
70 RN=90:5T=33:1FAS="L'THENRN= 


SB:ST=65 
280 TM=3600/KP 


300 CLS: PRINT"PRESSIONE A TECLA 
APÓS O BIP” 

310 LOCATE1S, 10: PRINTSTRINGS (4, 
219) 

320 LOCATEI5S: PRINTZS;” “i;Zs 
330 LOCATE15S: PRINTZS;” ";zs 


340 LOCATE15S: PRINTSTRINGS (4,219 
) 

350 WS=CHRS (RND (1) *RN+ST) 

360 IF WS<"Z"ANDWS>"a"THEN350 
370 LOCATE17,12:PRINTWS;: TIME=Q 
380 AS=INKEYS: IFAS=""THENJÍ90ELS 
EBS=AS: IFBS=WSTHENCOLORIS,6 

390 IFTIME<TMTHENIBOELSEBEEP: IF 
B$=""THEN370 

400 IFBS<>WSTHENER=ER+1 

410 COLOR 15,4,4 

420 NC=NC-1: IEFNC>OTHEN350 

430 CLS:LOCATE2,12:PRINTOA";KP; 
"toques por minuto, você errou” 
"'ER;"em";NM 

440 RETURN 

600 CLS: INPUT"TOQUES POR MINUTO 
"2 KP 

610 IFKP<ITHEN600 

620 PRINT: PRINT"TECLADO: 
OU TOTAL? (L/T)” 

630 AS=INKEYS:IFAS<>"LTANDASS >" 
T"THEN630 

640 RN=0901:ST=32:1IFAS="L"THENAN= 
SB8:5T=65 

650 TM=3600/KP 

660 CLS:FORK=1TO32 

670 CR=INT(RND(1)*RN)+ST 


LETRAS 














COMO AUMENTAR A VELOCIDADE 
DE DIGITAÇÃO 

Convém começar a execução do 
programa de jogo de velocidade com o 
teclado normal e a uma velocidade bai- | 
xa (por exemplo, de cerca de trinta a | 
cinquenta caracteres por minuto). Ao | 
mesmo tempo, procure não alterar o rit- 
mo de trabalho, digitando com a mes- 
ma velocidade tanto os caracteres co- 
nhecidos como os que lhe são menos 
familiares (esse conselho vale principal- 
mente para quando você estiver com 
o teclado completo). 

Se o seu ritmo se mantiver constan- 
te, você poderá selecionar o teclado 
completo e aumentar, gradativamente, 
a velocidade de digitação. 

Outra coisa muito importante para 
quem está aprendendo a datilografar é 
fazer todos os exercícios propostos 
sem olhar para o teclado do com- 
putador. 

Mantenha os seus olhos fixos todo 
o tempo na tela à sua frente, e repou- 
se as mãos sobre o teclado, distribuin- 
do os dedos pelas teclas de apoio da 
fileira central, conforme ensinamos na 
primeira lição. 


680 IFCR>90ANDCR<97THENCR=32 
690 WS5=WS+CHRS (CR) 

700 NEXT 

710 AP=564 

720 VPOKEBASE (0) +AP, 205 

730 LOCATE3,15: PRINTWS 

740 TIME=Q 

750 AS=INKEYS: IFAS=""THEN/60ELS 
EBS=AS 

760 IFTIME<SXTMTHEN750 

770 BEEP:IFBS=""THEN740 

780 IFBS<>MIDS (WS,AP-563,1)THEN 
ER=ER+IELSEVPOKEBASE (0) +AP+80,1 
790 VPOKEBASE (0) +AP,0O:AP=AP+1:1 
FAP=596THENBIO 

800 VPOKEBASE (0) +AP, 205 :GOTO740 
810 CLS:LOCATE2,15:PRINT"A";KP; 
"toques por minuto, você errou' 
'ER;"de 32” 

820 RETURN 

1000 CLS 


FACA TODOS OS EXERCÍCIOS 


Para adquirir um conhecimento pro- 
fundo de todas as teclas de caracteres 
pratique todos os exercícios apresenta- 
dos até agora. Esta parte do curso é in- 
dependente. Entretanto, em um artigo 
posterior, você terá oportunidade de 


| praticar suas habilidades com algumas 


frases e sentenças. 












JOYSTICKS 


Embora estejam ficando cada vez 
mais sofisticados, os computadores do- 
mésticos ainda não conseguem dar ins- 
truções a si mesmos. Por enquanto (e es- 
peramos que para sempre...), a respon- 
sabilidade disso recai inteiramente sobre 
o programador ou o usuário. Aprender 
a programar é, portanto, aprender a se 
comunicar com o computador. 

O principal meio de comunicação do 
usuário com o computador” continua 
sendo o teclado. Mas existem muitas ra- 
zões para considerar esse meio como 
longe do ideal: a principal delas é que 
o teclado torna a comunicação compa- 
rativamente lenta em relação a outros 
métodos. Além disso, o uso eficiente do 
teclado exige que o usuário aprenda a 
digitar com rapidez e precisão. | 

Costuma-se classificar as entradas 
efetuadas por intermédio do teclado em 
dois tipos principais. Destes, o mais co- 
mum é a entrada de um nome ou núme- 
ro em que o programa solicita ao usuá- 
rio que entre algo como ''nome e data 
de nascimento"” e espera uma resposta 
tal como “João da Silva, 9.7.53"". 


Sistema de controle dos mais versáteis 
e baratos, o joystick é um 

periférico que serve tanto para 
aplicações “sérias” como para 

tornar os jogos mais interessantes. 


O segundo tipo de entrada, por sua 
vez, transmite um tipo inteiramente di- 
verso de informação. Nela, a pressão a 
uma tecla — em vez de provocar a en- 
trada do caractere ao qual ela é normal- 
mente ligada — aciona uma outra fun- 
ção bem diferente, determinada pelo 
programa. Por exemplo, se a tecla X for 
pressionada, o cursor da tela será mo- 
vido para a direita; se for Z a tecla pres- 
sionada, o cursor será deslocado para a 
esquerda. Diversos capítulos do curso de 
BASIC e de Programação de jogos fo- 
ram destinados a ensinar a programar 
esse tipo de entrada. 

Obviamente, o primeiro tipo de en- 
trada depende do teclado de modo di- 
reto. No segundo tipo, porém, essa h- 
gação não aparece de forma tão eviden- 
te. É difícil imaginar, por exemplo, que 
um usuário pouco familiarizado com o 
teclado consiga se lembrar de que pre- 
cisa pressionar o P para movimentar 
uma nave espacial para cima e, ao mes- 
mo tempo, apertar o F para disparar 
uma arma. 








COMUNIQUE-SE COM O 
COMPUTADOR 


TIPOS DE JOYSTICKS 


R 
E COMO UTILIZAR UM JOYSTICK 
A 
ii 


ESCOLHA O JOYSTICK CERTO 


Felizmente, existe uma alternativa: o 
joystick, um periférico barato e acessi- 
vel para microcomputadores. Talvez in- 
justamente associado apenas aos Jogos, 
esse periférico cumpre diversas outras 
funções. 

O joystick é uma espécie de alavan- 
ca que pode ser movida em várias dire- 
ções pelo usuário. A cada movimenta- 
ção, ele envia ao computador um sinal 
que indica a sua nova posição. A maio- 
ria dos joysticks tem um ou mais botões 
pulsantes (chamados de botões de dis- 


paro) que, ao serem pressionados, ge- 


ram sinais diferentes para o computa- 
dor (joystick é um termo derivado do ae- 
romodelismo e não tem tradução ade- 
quada para o português; a mais aproxi- 
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mada seria manche). 

Com uma programação apropriada, 
mesmo nos jogos de ação mais modes- 
tos, Os joysticks podem assumir várias 
das funções reservadas tradicionalmen- 
te para o teclado; assim, eles encontram 
muitas aplicações interessantes, Úteis so- 
bretudo para usuários que não querem 
ou têm dificuldades em usar o teclado. 

Por exemplo, em um programa de 
gráficos, é perfeitamente possivel utili- 
zar um joystick ou um controle seme- 
lhante para guiar o cursor que desenha- 
rá na tela (na página 164 apresentamos 
um programa que faz isso por meio do 
teclado), ou para selecionar uma cor em 
uma “*paleta”” exibida na tela. Um joys- 
tick também pode ser usado para for- 
necer respostas alfabéticas ou numéri- 
cas. Alguns jogos de fliperama, por 
exemplo, possuem uma “'lista de cam- 
peões”, na qual são exibidos os nomes 
dos jogadores e seus recordes de pontos. 
Neste caso, uma entrada alfabética curta 
(por exemplo, as iniciais do jogador) é 
realizada, usando-se o joystick para mo- 
ver O cursor até a posição onde está a 
letra desejada e, em seguida, o botão de 
disparo para selecioná-la. Com um pou- 
co de imaginação, é fácil incorporar es- 
se truque na digitação de nomes e nú- 
meros maiores ou, mais comumente, pa- 
ra efetuar uma escolha entre um menu 
de opções de programa, por exemplo. 

Em um artigo futuro, você verá co- 
mo programar o seu computador para 
operar sob o controle de um joystick, de 
modo a tornar um programa mais 
atraente ou um videogame mais diver- 
tido. Antes disso, porém, é necessário 
entender quais são os diferentes tipos de 
Joysticks existentes para computadores, 
e como podem ser utilizados. 


TIPOS DE JOYSTICKS 


Nem todos os joysticks são adequa- 
dos aos vários tipos de computadores 
pessoais. Antes de adquiri-los, convém 
certificar-se de que eles são compatíveis 
com a sua máquina. Existe ainda uma 
outra restrição: ao se comprar um pro- 
grama de jogos (ou outro qualquer) que 
utilize joysticks, é necessário verificar 
cuidadosamente se ele foi escrito para 
o tipo de joystick que você possui. Den- 
tro dessas limitações básicas podem exis- 
tir, contudo, diversas opções de compra. 

O tipo mais simples de joystick con- 
siste em uma caixa rasa com uma ala- 
vanca, que pode ser movimentada em 
oito direções diferentes: para a esquer- 
da, para a direita, para cima, para bai- 


= XO € para as quatro posições intermediá- 
EM rias, em diagonal. Além disso, ele con- 





ta com um botão de disparo que, ape- 
sar do nome, pode ser utilizado para ta- 
refas como selecionar uma letra ou as- 
sinalar uma opção. Esse gênero de joys- 
tick é muito usado em videogames; por 
ISSO, é comumente chamado de “tipo 
Atari” ou digital. 

Alguns desses joysticks possuem dois 
ou mais botões de disparo que podem 
ser úteis para jogadores canhotos, por 
exemplo, ou para aumentar a velocida- 
de ou o grau de conforto na manipula- 
ção de jogos dificeis. Esses botões se lo- 
calizam normalmente na base, mas po- 
dem situar-se também na ponta da ala- 
vanca de controle. Dependendo do pro- 
grama, um botão pode, por exemplo, 
ser usado para disparar um canhão, en- 
quanto o outro aciona um dispositivo 
que deixa cair uma bomba; um botão 
pode apagar uma linha de texto, en- 
quanto o outro a edita, e assim por dian- 
te. Alguns modelos são especialmente 
planejados para se amoldarem à mão. 
Outros são modelados no formato de 
um cabo de pistola, complementado, em 


alguns casos, com um gatilho. 

Joysticks mais modernos incluem dis- 
positivos extremamente sofisticados, co- 
mo ponteiros munidos de indicadores 
ultra-sensíveis de gravidade. Esses indi- 
cadores servem para detectar pequenos 
movimentos ou inclinações da mão do 
usuário (por exemplo, quando este 
aponta para alguma locação na tela), 
Eles utilizam interruptores de mercúrio: 
sempre que a alavanca é inclinada, o 
mercúrio em seu interior se desloca pa- 
ra uma das extremidades, fechando ou 
abrindo um contato elétrico. Tais dis- 
positivos são tão sensíveis que não de- 
vem ser usados em jogos, a menos que 
o programa tenha sido escrito especial- 
mente para eles. 

Outro elemento da família dos joys- 
ticks é a “raquete eletrônica” (paddle), 
que nada mais é do que um botão gira- 
tório, tipo potenciômetro. Neste caso, a 
posição angular do potenciômetro é de- 
tectada pelo computador, que pode usar 
a informação para mover um cursor na 
tela, geralmente no sentido horizontal. 
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Alguns tipos de joysticks resultam de 
uma combinação de dois paddles, um na 
posição horizontal e outro na vertical. 

Uma outra variante do joystick é 
a “trackerball" (esfera de comando). 
Originalmente desenvolvida para apli- 
cações militares e “aviônicas”, a esfera 
de comando foi logo adaptada para 
máquinas comerciais de jogos de flipe- 
rama e estão entrando agora no merca- 
do dos computadores domésticos. Nes- 
se periférico, o controle é feito por meio 
de uma bola que se projeta acima da su- 
perficie da caixa e que pode ser rolada 
em qualquer direção, com as pontas dos 
dedos. 

Os modelos mais sofisticados desses 
dispositivos de controle são emprega- 
dos também em computadores de apli- 
cação comercial e profissional. Um dos 
mais recentes é o chamado '“'camun- 
dongo” (mouse), que se parece com 
uma trackerball de cabeça para baixo, 
embora existam tambem versões que 
funcionam de acordo com outros siste- 
mas. O camundongo entra em ação 


quando se rola o dispositivo sobre a su- 
perficie de uma mesa. Seus movimentos 
são detectados por um programa espe- 
cial, provocando deslocamentos corres- 
pondentes de um cursor gráfico ou de 
texto na tela, Assim, o camundongo po- 
de substituir as teclas de controle do cur- 
sor. Ele permite movimentos rápidos so- 
bre a tela para alterar dados ou para so- 
lucionar itens de um menu. As seleções 
são feitas por meio de um ou dois bo- 
tões no alto da caixa. Ao contrário dos 
joysticks normais, O camundongo é uti- 
lizado para desenhar na tela, mas qua- 
se nunca para controlar movimentos em 
jogos. 

Existem muitos outros tipos de dis- 
positivos que servem para controlar 
o cursor na tela, mas cujo funciona- 
mento é bem diferente do dos joysticks 
e de seus “parentes”, Um deles é o ta- 
blete gráfico, que consiste em uma me- 
sa retangular, sobre a qual se pode “'es- 
crever” com uma caneta especial, ou 
mesmo com o dedo (touchpad). Senso- 
res localizados na superfície do table- 
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te ou na pena transmitem ao computa- 
dor as coordenadas X e Y da ponta da 
caneta. 

As canetas ópticas são outro “paren- 
te”” dos joysticks, que permitem o dese- 
nho direto sobre a tela, a escolha de op- 
ções, etc., e estão se tornando cada vez 
mais populares entre os usuários de 
computadores domésticos. 


COMO FUNCIONAM 


Embora pareçam diferentes à primei- 
ra vista, na verdade todos esses disposi- 
tivos funcionam de maneira semelhan- 
te. Em todos eles, o movimento é trans- 
formado em uma série de sinais elétri- 
cos que são “lidos” pelo computador. 

Assim. como qualquer dispositivo 
eletrônico, os Joysticks podem ser tan- 
to digitais quanto analógicos. Normal- 
mente, uma linha de computadores acet- 
ta apenas um dos tipos e mais raramen- 
te os dois. No joystick digital existem di- 
versos comutadores eletrônicos que são 
abertos ou fechados conforme o ângu- 
lo de movimentação da alavanca: assim, 
um padrão único de bits é gerado para 
cada posição. Os paddles e joysticks de 
tipo analógico, por sua vez, funcionam 
de forma diferente: eles são construidos 
com um ou dois potenciômetros (resis- 
tores variáveis), cujo ângulo de rotação 
é proporcional ao deslocamento da ala- 
vanca nos sentidos horizontal e vertical. 
As variações de resistência obtidas com 
essas rotações são transmitidas ao com- 
putador na forma de duas voltagens 
proporcionais, de modo a fornecer uma 
única combinação para cada posição de 
controle. 

Do ponto de vista visual, os dois ti- 
pos de joystick são também bastante di- 
ferentes. No tipo analogico, os poten- 
ciômetros são montados em ângulos re- 
tos e operados por um enlace mecâni- 
co. A alavanca, em consequência, não 
fica balanceada ao centro, ou seta, per- 
manece na posição em que o usuário a 
deixar. Os tipos digitais, ao contrário, 
são normalmente balanceados ao centro 
e, quando liberados, voltam automati- 
camente para a posição central ou neu- 
tra. No entanto, alguns modelos analó- 
gicos são balanceados ao centro. 

Por outro lado, uma nitida diferen- 
ça no comportamento mecânico separa 
os dois sistemas. Os joysticks digitais 
(balanceados ao centro) são mais duros 
e normalmente só se movimentam por 
uma pequena distância. Assim, um es- 
forço maior feito pelo jogador é contra- 
balançado por uma maior resistência 
mecânica. 
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Na verdade, o efeito que ambos os ti- BR 








pos provocam no computador é contro- 
lado mais pelo programa do que pelo 
próprio joystick. Geralmente, um pro- 
grama bem escrito torna o joystick mais 
sensível e fácil de controlar. Por exem- 
plo, um programa pode determinar que 

um leve movimento da alavanca seja su- 
ficiente para dar início a mudanças de 
direção de um objeto na tela, sem que 
haja necessidade de se pressionar conti- 
nuamente a alavanca. 

Já os tabletes digitalizadores que fun- 
cionam por toque (touchpads) consistem 
em um sanduiche de duas folhas de plás- 
tico, separadas por uma pequena dis- 
tância. Uma fina grade de resistores 
ou fios condutores é construída sobre 
uma das faces dessas folhas, orientadas 
de modo a formar ângulos retos entre 
si. Ao menor contato de um dedo ou de 
um lápis com o tablete, os condutores 
situados nas duas folhas se tocam e ge- 
ram um padrão de voltagens, que é var- 
rido pelo computador. Os touchpads, 
entretanto, podem apresentar proble- 
mas, devido à dificuldade de se conse- 
guir uma superfície uniformemente sen- 
sível. Uma desvantagem em utilizá-los 
é que, se a superfície se sujar — por 
marcas de dedos, por exemplo —, os 
movimentos tenderão a se tornar errá- 
ticos devido ao deslizamento do dedo 
pela superficie. 

Extremamente leves, as trackerballs 
podem ser operadas com facilidade, pois 
a bola não tem conexão mecânica dire- 
ta com o sistema sensor. Ela é sustenta- 
da sobre rolamentos que giram livre- 
mente em duas direções, em ângulo re- 
to uma em relação à outra. Quando a 
bola sofre uma rotação, ela faz rodar 
um ou ambos os rolamentos. Estes, por 
sua vez, estão conectados a potenciôme- 
tros ou a um sensor digital — um siste- 
ma formado por um disco rotatório pa- 
ra interromper um raio de luz prove- 
niente de um diodo LED (foto-emissor), 
que cai sobre um fototransistor (foto- 
sensor). Com a contagem de impulsos 
de interrupção, o computador fica ''sa- 
bendo” de quanto girou o rolamento, 
Mais uma vez, qualquer que seja o sIs- 
tema utilizado, o computador é capaz 
de interpretar os sinais elétricos em ter- 
mos de um padrão determinado de mo- 
vimentação na tela. 





OPERAÇÃO COM O COMPUTADOR 


Os comandos GET$ ou INKEY$ do 
BASIC são os mais utilizados para pro- 
gramar a execução de funções de movi- 
mentação do cursor de vídeo, sob con- 

trole de determinadas teclas do teclado. 
Eles efetuam uma ''varredura” do te- 


clado, de modo a assinalar ao progra- 
ma se alguma tecla foi pressionada. Se 
isso acontecer, o programa poderá efe- 
tuar alguma operação específica — tal 
como a movimentação de uma base de 
mísseis para a direita, se a tecla X, por 
exemplo, for pressionada. 

A operação do joystick digital não di- 
fere essencialmente disso. Mas enquan- 
to o teclado é parte integrante do com- 
putador, O joystick é um elemento ex- 
terno acoplado a ele. Assim, o joystick 
deve primeiro ser conectado ao compu- 
tador através de uma porta adequada 
(um conector especial); é por essa porta 
que o micro normalmente se comunica 
com o mundo exterior. Em seguida, é 
necessário colocar na memória RAM do 
micro um programa adequado para 
“varrer” periodicamente a porta de en- 
trada, de modo a procurar por um si- 
nal específico, que signifique que o joys- 
tick está sendo movimentado. 

Alguns problemas de compatibilida- 
de podem surgir entre esses periféricos 
e o computador. Em primeiro lugar, O 
joystick precisa ser conectável à porta 
de entrada do micro, seja diretamente, 
seja através de algum tipo de interface. 
Além disso é necessário que o progra- 
mador conheça os sinais gerados pelo 
joystick; caso contrário, não será pos- 
sivel programar o computador para pro- 
curá-los. 

Essas exigências dão lugar, às vezes, 
a tremendas confusões. Felizmente, já 
existem padrões de mercado seguidos 
em maior ou menor grau por diferentes 
fabricantes. No Brasil, cada linha de mi- 
crocomputadores apresenta um conjun- 
to bem definido de convenções. O pa- 
drão mais comum, que se tornou vir- 
tualmente universal, é o do joystick ti- 
po Atari (digital é centro-balanceado). 
Existem diversos fabricantes de joysticks 
desse tipo, e alguns computadores são 
projetados de modo a aceitá-los direta- 
mente. 

É o caso, por exemplo, da linha Sin- 
clair (ZX-81 e Spectrum), cujos com- 
patíveis nacionais (TK-85,.TK-90X, etc.) 
incluem um conector para joysticks ti- 
po Atari. Os modelos da linha MSX 
têm, por sua vez, entrada para dois joys- 
ticks tipo Atari. Os compatíveis com o 
TRS-Color (por exemplo, o Prológica 
CP-400) utilizam joysticks analógicos. 
Já os micros da linha TRS-80 normal- 
mente não contam com nenhum tipo de 
entrada para joystick. 

Além disso, podem existir, às vezes, 
diferenças importantes entre diversos 
modelos de máquinas da mesma linha, 
como no caso do Apple, que tem pro- 
tótipos nacionais que aceitam joysticks 
digitais tipo Atari (é o caso do TK-2000), 





ou analógicos (paddles). 

Uma das diferenças mais importan- 
tes entre micros diz respeito ao interfa- 
ceamento. 





INTERFACEAMENTO 


Como qualquer periférico de compu- 
tador, os joysticks precisam ser conec- 
tados à UCP por intermédio de uma in- 
terface adequada. A interface pode es- 
tar integrada à configuração básica da 
UCP do computador, ou pode ser um 
dispositivo separado. 

Muitos fabricantes incorporam aos 
seus micros um conector e uma interta- 
ce do tipo Atari, de modo a fazê-los 
aceitar qualquer joystick que seja de 
um modelo compatível com esse padrão. 

Outra saída seria dispor de uma.ou 
mais portas analógicas, que aceitam 
paddles ou joysticks do tipo potenciô- 
metro. No entanto, são raros os micros 
que já incluem essas portas em sua con- 
figuração básica, pois isto significa que 
devem ser construídos dois conversores 
analógico-digitais para cada joystick a 
ser utilizado. 


Os micros da linha Sinclair Spectrum 
não vêm acompanhados de joysticks. 
Assim, para ajustar a eles um desses pe- 
riféricos, é necessário uma interface 
apropriada ao conector de borda exis- 
tente atrás do console. 

A interface é alojada em uma caixa 
separada que se situa na parte posterior 
da máquina, em contato direto com os 
terminais do conector de borda, na en- 
trada do usuário. Existe, porém, um ti- 
po de interface (disponível apenas no 
Exterior) construída dentro da caixa do 
próprio joystick, com um conector se- 
parado para o cabo de ligação. 

O joystick mais adequado para o 
Spectrum é compatível com o tipo Atari. 
No Exterior, entretanto, existem muitos 
outros tipos de joysticks, que são incom- 
patíveis entre si no que se refere aos si- 
nais que geram no conector de expansão. 

Por isso, o usuário do Spectrum de- 
ve tomar muito cuidado quando com- 
prar ou copiar programas provenientes 
do Exterior que utilizem joysticks, pois 
eles nem sempre funcionam com o joys- 
tick disponível no Brasil. Assim, é con- 
veniente verificar a documentação do 
software antes de adquiri-lo. Alguns 
programas mais sofisticados incluem um 
menu de opções que permitem ao usuá- 
rio selecionar o tipo de joystick a ser 
usado para acionar o jogo. 

Outro problema para os proprietários 








do Spectrum é que as interfaces mais co- 
muns desse micro só possibilitam a co- 
nexão de um joystick. Entretanto, algu- 
mas interfaces mais sofisticadas permi- 
tem a conexão de dois Joysticks ao mes- 
mo tempo. Infelizmente, porém, são ra- 
ros os softwares compatíveis com tais in- 
terfaces. 

O interpretador BASIC do Spectrum 
não tem nenhum comando especifico 
para programação com joysticks. As- 
sim, O mais comum é usar o comando 
INKEYS. 


O ZX-81 está longe de ser uma má- 
quina ideal para jogos. Entretanto, as- 
sim como o Spectrum, é possivel conec- 
tá-lo a um joystick do tipo Atari por in- 
termédio de um conector Phillips, situa- 
do na lateral ou na traseira do console. 
Portanto, a operação com esse micro é 
parecida com as descritas acima. 

O BASIC do ZX-81 não tem nenhum 
comando específico para a programação 
de joysticks, como é o caso dos micros 
da linha MSX, Apple e TRS-Color, mas 
o comando INKEY$ pode ser usado da 
mesma forma que com o teclado, pois 
os joysticks para o ZX-81 geram sinais 
correspondentes às teclas de controle de 
cursor (6, 7, 8 e 9, combinadas com 
<SHIFT>). 

Isto é uma vantagem adicional, pois 
um jogo que utilize tais teclas operará 
igualmente bem, com ou sem joystick 
(só que ficará mais divertido com o joys- 
tick, como é o caso de um popular pro- 
grama de simulação de vôo de uma ae- 
ronave). 


Os microcomputadores da linha 
TRS-Color incluem duas entradas para 
joysticks analógicos, do tipo potenciô- 
metro de centro não-balanceado. Esses 
joysticks têm botões de disparo, e po- 
dem ser facilmente programados por co- 
mandos específicos do interpretador 
BASIC. A tela de alta resolução gráfi- 
ca, quando associada por programação 
ao uso desses joysticks, permite efeitos 
sensacionais de animação gráfica, em 
jogos ou no desenho livre. 


Os micros da linha TRS-80 não in- 
cluem nenhuma previsão ou porta espe- 
cial para joysticks. 

Entretanto, esses computadores po- 
dem ser conectados tanto a joysticks di- 


gitais do tipo Atari, quanto a joysticks 
e paddles analógicos; para isso, existem 


produtos comercialmente disponíveis no 
mercado. 

No primeiro caso, é necessário efe- 
tuar uma modificação no hardware, 
conectando fios em paralelo com a in- 
terface do teclado. Em seguida, deve-se 
ligar a máquina ao joystick. Uma vez 
em operação, este gera sinais semelhan- 
tes aos provocados pela pressão das te- 
clas de controle do cursor, que podem 
ser detectadas por meio do comando 
INKEY$, do BASIC. Há um dispositi- 
vo fabricado no Brasil — “joypad”, um 
pequeno teclado paralelo apenas com as 
teclas de controle de cursor (oypad) — 
cuja função consiste em facilitar o de- 
sempenho em jogos. 

Para conectar dispositivos analógi- 
cos, é necessário adquirir uma interfa- 
ce especial de conversão analógico-digi- 
tal, que é ligada à porta de expansão, 
na parte de trás da UCP. 

No TRS-80 não existem comandos 
específicos do BASIC para os dois tipos 
de Joysticks. 


io 


Os microcomputadores da linha 
MSX incluem portas de entrada para 
joysticks do tipo digital centro-balancea- 
do, com dois ou mais botões de dispa- 
ro. No Brasil, cada fabricante oferece 
o seu modelo próprio de joystick, mas 
o padrão de conexão e geração de sinais 
segue o do Atari. 

Da mesma forma que o TRS-Color, 
o interpretador BASIC dessas máquinas 
contém comandos bastante poderosos. 


é] 


A maioria dos micros da linha Ap- 
ple apresenta no console duas portas pa- 
ra dois paddles analógicos, ou para um 
joystick de dois eixos (não centro-balan- 
ceado). O interpretador BASIC incor- 
pora comandos para leitura da posição 
dos potenciômetros e da pressão ao bo- 
tão de disparo. 

Existem ainda no mercado joysticks 
do tipo digital, que podem ser conecta- 
dos via porta serial ou paralela. 


fl 


O Microdigital TK-2000 inclui, na 
versão padrão, um conector especifico 
para joystick digital do tipo Atari, que 
opera paralelamente ao teclado normal 
(ou seja, gera sinais correspondentes às 
teclas de controle do cursor e às teclas 
FIRE dos dois lados do teclado). Assim, 
a utilização do joystick pode ser progra- 
mada por meio de comandos GET$ ou 
PEEK do teclado existentes no BASIC 





Como funciona um conversor ana- 
lógico-digital? 

Necessário para converter em nú- 
meros binários as voltagens continuas 
geradas pelos paddles e joysticks ana- 
lógicos, o conversor A/D realiza uma 
tarefa de digitalização do sinal elétrico 
de entrada. 

Suponhamos que uma rotação de | 
118 graus num dos potenciômetros do 
joystick gera uma voltagem proporcio- 
nal entre O e 5 volts. O conversor A/D 
tem um comparador interno que gera 
voltagens sucessivas, divididas em um 
certo número de intervalos (por exem- | 
plo, 256 intervalos de 0.0195 volts ca- | 
da, se for um conversor de oito bits). 


| À cada nivel interno de voltagem, o cir- 


cuito compara-o com o nível externo de 
voltagem (gerado pelo joystick) e de- 
cide se esses valores são aproximada- 
mente iguais ou não. Ao mesmo tem- 
po, outro circuito digital vai contando 
quantos desses níveis foram testados. 
Assim que o comparador informar que 
a igualdade foi atingida, o conversor 
A/D enviará ao computador, através da 
interface paralela, o byte contendo o 
número de contagens. Por exemplo, se 
a voltagem gerada pelo joystick for 
1.95 volts, o número enviado para o 
computador será 100! 


do TK-2000. Não existem Joysticks ou 
paddles do tipo analógico para esse 
computador. 





CUIDADO AO COMPRAR UM JOYSTICK! 


Ao comprar um joystick, verifique 
primeiro se o modelo escolhido é com- 
patível com o seu computador e, no ca- 
so do Spectrum, com o seu software 
também. 

Em seguida, pense em quanto você 
está disposto a gastar; se você é proprie- 
tário de um Spectrum, tenha em men- 
te que a interface poderá custar tanto 
quanto o joystick, ou até mais. Os tipos 
mais simples de joysticks custam o mes- 
mo que um programa de jogo, enquan- 
to os mais elaborados podem ser duas 
ou três vezes mais dispendiosos. 


| 
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Uma vez elaborado o projeto geral de 
um programa e escritos os módulos in- 
dividuais, pode-se começar a pensar em 
testar os módulos. Em seguida, é neces- 
sário planejar a forma de colocá-los to- 
dos juntos. 

As sub-rotinas ou módulos precisam 
ser colocados de alguma forma deniro 
do contexto do programa. Normalmen- 
te, à ligação é feita por meio de variá- 
veis. Algumas destas — conhecidas co- 
mo parâmetros de entrada — são espe- 
cificadas no início, e passadas à rotina, 
Outras variáveis retornam ao programa 
por intermédio da rotina; estas são os 
parâmetros de saída. É muito importan- 
te que as variáveis sejam especificadas 
de um modo preciso para não serem 
confundidas umas com as outras. 

ÃO se começar a escrever um progra- 
ma deve-se fazer uma lista de todas as 


as variáveis necessárias, juntamente com 


uma descrição dos seus usos e possiveis 
valores iniciais, caso sejam conhecidos, 
Do contrário, mesmo que se saiba no 
início O que significam todas as letras, 
corre-se o risco de esquecer de retornar 
ao programa mais tarde. Um recurso 
bastante prático, caso o computador 
permita ou o espaço de memória não se- 
ja muito pequeno, consiste em adotar 
nomes longos para as variáveis (veja na 
página 99 uma tabela do que é permiti- 
do para cada linha de microcompu- 
tadores). 


| ROTINA DE ORDENAÇÃO TIPO BOLHA 





Como se deve especificar as variáveis 
para uma rotina de ordenação tipo bo- 
tha? O exemplo a seguir apresenta uma 
porção especifica de matriz ordenada al- 
fabeticamente, 


Variáveis de entrada: 

AS(N) — conjunto unidimensional a 
ser classificado (tamanho de N> =1) 
N1 — primeiro item em conjunto a ser 
classificado (|< =NI< =N2) 

N2 — último item em conjunto a ser 
classificado (NI< =N2< = o tamanho 
de A) 





Variáveis de saída: 
AS(N) — conjunto ordenado. 


Variáveis temporárias: 
Z, 28,1. 


Uma providência muito útil para evi- 
tar conflitos entre módulos ou com o 
resto do programa consiste em listar as 
variáveis temporárias utilizadas em uma 
sub-rotina. Também é útil reservar al- 
gumas letras, especialmente para varia- 
veis temporárias: por exemplo, as variá- 
veis de Z0 a Z9. Esse tipo de recurso evi- 
ta desperdícios de espaço das variáveis. 

Alguns erros ou defeitos de progra- 
ma são causados às vezes por variáveis 
viciadas — isto é, com valores mudados, 








Aperfeicoe as técnicas da programação 
estruturada, aprendendo a 

construir um programa de ordenação 
pelo método de bolhas, e 

coloque em ordem o que quiser. 


Esses problemas, contudo, podem ser 
evitados com a aplicação do método ex- 
posto acima. 

Uma listagem de variáveis também é 
útil para o caso de o programa vir a ser 
modificado mais tarde. Essa medida as- 
segura maior rapidez na alteração das 
variáveis, impedindo ao mesmo tempo 
O aparecimento de erros extras no pro- 
prama. Tais erros são normalmente pro- 
vocados por variáveis viciadas, utiliza- 
das para outros propósitos. Lembre-se 
ainda de anotar as modificações, junta- 
mente com as datas em que foram feitas. 

Eis aqui o programa para uma roti- 
na de ordenação por bolhas (seu funcio- 
namento será explicado mais adiante, na 
lição número 23 de Programação 
BASICO). 


1000 REM ORDENAÇÃO TIPO BOLHA ( 
AS (N),N1L,N2) 

1010 LET Z=0 

1020 FOR I=Ni TO NZ2-1 
1030 IF AS(I)<=AS(1+1) 
O 1080 

1040 LET ZS=ASCI) 

1050 LET AS(I)J=AS (I+1) 
1060 LET AS(I+1)=Z5 
1070 LET Z=1 
1080 NEXT 1 

1090 IF Z=1l THEN 
1100 RETURN 


THEN GOT 


GOTO 1010 


Como toda sub-rotina, esta deve ser 
chamada a partir do programa princi- 
pal. Por exemplo, para ordenar os itens 
de 5 a 20, a rotina pode ser chamada 
assim: 


100 LET Nl=5:LET N2=20:GOSUB 
1000: REM ORDENACAO TIPO BOLHA 


É preciso tarnbém que exista uma se- 
ção do programa que lhe permita entrar 
os itens a serem ordenados, e outra que 
imprima a lista ordenada. Neste estágio 

você deve decidir como quer que a exi- 
Dição apareça na tela, 

se você trabalha com um MSX, po- 
de tirar proveito do poderoso BASIC 
desse micro. Mude a linha 1040 para 
SWAP AS(I),ASMI + 1) e elimine as li- 
nhas 1050 e 1060. Seu computador tro- 
cara o conteúdo das duas variavéls de 
uma só vez, dispensando o uso da va- 
riavel Z8. 





“COMO TESTAR OS Mi 


Cada módulo do projeto original po- 
de se tornar uma sub-rotina no seu pro- 
grama, Esse método de dividir O progra- 
ma é muito útil durante o estágio de tes- 
te, pois os módulos podem ser postos à 
prova ou depurados individualmente, 
Volte agora à sub-rotina da ordenação 
tipo bolha, Ltestando-a assim: 








TE E e ee = =— 


DEFINA AS VARIÁVEIS 
COMO ESCREVER UMA 
—SUB-ROTINA DE ORDENAÇÃO 
Ki COMO TESTAR OS MÓDULOS 
[BN 


COLOQUE TUDO JUNTO 


UMZU,A 
O INPUT "Número de 
LO DIM AS(N) 
12 PRINT"Entrada dos 
atriz: 
14 FOR 1=1 TON: 
XT 1 
16 INPUT “Interv 
ado ":;N1l,N2 
LB GOSUB 1000 
£U PRINT"Lista or 
22 FOR I=1 TO WN: 
TT 
e4 GOTO 16 

O programa acima também funcio- 
nará no TRS-Color e TRS-80, desde que 
se adicione a linha a seguir, cujo objeti- 
vo é reservar um espaço suficiente de 
memória: 
6 CLEAR 


pi RO 
alinha 10 d 





ra 
a 
| * 


itens 
ítens da mº 

INPUT AS(I)J:NE 
alo 


a ser orden 


denada: 
PRINT AS(IY:NEX 


1000 


no Spectrum, modifique 
do programa acima para; 


LO DIM AS(N,10) 


No ZX-81, fracione as Imhas com de- 
clarações múltiplas, mude tudo par 
maiúsculas, e altere a linha 8 para: 









————— A —— > >>—— > e ——————————— — 


8 PRINT "NUMERO DE ITENS” 
9 INPUT N 

Entretanto, a tarefa de testar cada ca- 
so de entrada e de saída pode se revelar 
impossível em programas complexos, 
exigindo um tempo 
grande. Apesar disso, Os casos limitro- 
fes podem ser checados. Por exemplo, 
a rotina seguinte pode ser verificada pa- 
ra entrar valores de 1,99 € 100, 
1010 PRINT "ENTRE UM NUMERO 
(1999 *; 
INPUT N 
IF N<1 OR N299 THEN GOTO 
1010 
1030 RETURN 

Outra providência aconselhável é 
certificar-se de que cada linha do -pro- 
grama foi rodada pelo menos uma vez 
durante o estágio de depuração. Assim, 
todos os desvios condicionais, tal como 
a declaração IF, poderão ser chocados 
com ambas as condições de verdadeiro 
ou falso, 


1015 
1020 


0] JUNTO 





Finalmente, todos os módulos pode- 
rão ser encadeados e o programa testa- 
do como um todo. Isso é conhecido co- 
mo integração do programa. Se ocorre- 
ram problemas, qualquer módulo sus- 
peito poderá ser checado novamente e 
modificado em caso de necessidade. 

Cumpridas todas essas exigências, 


excessivamente 


você terá um programa perfeitamente 

estruturado que fará exatamente o que 

for determinado. 

As regras para se escrever um progra- 
ma estruturado são, resumidamente, as 
seguintes: 
|. Escreva uma descrição - geral do 

programa, 

2. Divida-a em tantos módulos quantos 
forem os níveis necessários. 

3. Desenhe um fluxograma para cada 
módulo e defina as variáveis de en- 
trada é de saída e de quaisquer ou- 
tros efeitos, tais como a exibição na 

"tela, 

4. Escreva os programas para cada mó- 
dulo que utilizar as estruturas descri- 
tas na parte 1. 

S. Teste os módulos, fornecendo as en- 
tradas e checando os resultados e as 
saidas. 

6. Combine todos os módulos e teste O 
conjunto do programa. 

A finalidade de todo esse trabalho é 
aumentar a legibilidade de um progra- 
ma, assim como sua capacidade, segu- 
rançãe transportabilidade. Além disso, 
ele facilita a tarefa de testar e modifi- 


car o programa. 
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O prógrama de ordenação pelo mé- 
todo das bolhas foi utilizado aqui para 








mostrar como um módulo pode ser 
construído e depois testado, antes de ser 
encadeado ao programa principal, As 
rotinas de ordenação são muito úteis pa- 
ra todos os tipos de programas. A que 
apresentamos agora classifica palavras 
em ordem alfabética, mas poderia ser- 
vir também para classificar numeros em 
ordem crescente, Basta modificar as va- 
ráveis Z$ para Z,e o conjunto AS( ) pa- 
ra A(). 

O computador percorre a lista, com- 
parando pares de itens, um de cada vez. 
Se eles estiverem em ordem correta não 
serão mudados. Se estiverem em ordem 
incorreta serão intercambiados. O pro- 
grama continua através da lista, efe- 
tuando mais trocas até que todos os 
itens estejam em ordem correta. 

Para avaliar o funcionamento do 
programa em detalhes é conveniente 
compará-lo com o fluxograma. A prH- 
meira parte do programa (que não está 
no diagrama) define o numero de itens 
da lista — N — e estabelece um conjun- 
to chamado AS( ) com espaço suficiente 
para N itens. As linhas 12 e 14 pedem 
ao usuário as palavras que serão arma- 
zenadas no conjunto e a linha 16 per- 
gunta quais delas serão ordenadas. Se 
você quiser ordenar a lista inteira, digi- 
te | seguido de uma virgula, mais o va- 
lor de N. A sub-rotina é chamada na li- 
nha 18, 

A rotina começa estabelecendo Z 
igual a O, Z é conhecido como um sina 











lizador e registra se alguma troça de po- 
sições foi realizada. 

A linha 1020 cria um laço para per- 
correr a lista, Os números certificam de 
que cada par foi comparado pelo menos 
uma vez. A linha 1030 compara as pri- 
meiras duas palavras; se estas estiverem 
em ordem correta, o programa pulará 
a rotina de trocas e se dirigira para o par 
seguinte. 

As linhas 1040 a 1070 somente serão 
atingidas se as palavras estiverem em or- 
dem incorreta. A primeira palavra é co- 
locada em uma variável temporária ZS. 
A segunda é movimentada para alguma 
posição, e então a primeira palavra é 
deslocada uma posição abaixo, dentro 
do conjunto. Z é então igualado a 1 pa- 
ra mostrar que foi efetuada uma troca. 
A linha 1080 manda o computador de 
volta para comparar o par de palavras 
seguinte. 

Uma vez que todos os pares tenham 
sido comparados, o programa atingirá 
a linha 1090. Se Z = |, isso significa que 
pelo menos uma troca foi efetuada; des- 
sa forma, ele percorrerá a lista nova- 
mente. Se nenhuma troca foi efetuada, 
então a lista está na ordem correta, a 
sub-rotina termina é as linhas:20 e 22 im- 
primirão a lista ordenada. 

A denominação de método das bo- 
lhas tem, assim, sua razão de ser; o mo- 
vimento das palavras lembra globos de 
ar em ascensão no interior de um 
líquido. 





f E! E rob rthx iFrRE 
E EO Dor O pomar 


item na Nata 


E r ho 
r fraca itena 
a liga indicador 


A ordenação pelo método de bolhas provoca 

um efeito semelhante ao da ação de 

bolhas de agr no interior de um líquido, 

trocando palavras e números em a 
ordem incorreta e deslocando-os para cima. 295 




















NNONDR 
O TRS-COLOR i 


Nesta lição, apresentamos um As- Ep TUE do 
sembler para o TRS-Color. Mais longo És : Ea | 
do que o programa para o Sinclair ZX 
Spectrum objeto da lição anterior, ele 
conta com a participação de um editor. 

O microprocessador utilizado pelo 
TRS-Color é o Motorola 6809 de oito 
bits, cujo conjunto de instruções é bem 
menor que o do Z80, empregado pelo 
Spectrum. Entretanto, o Assembler do 
TRS-Color tem que passar por até três 
“etapas” para traduzir um comando de 
dezesseis bits, enquanto o programa do 
Spectrum deve passar por no máximo 
duas. Apesar dessa etapa adicional, o 
programa do TRS-Color é quase três ve- 
zes mais rápido que o do Spectrum: seu 
grande recurso para procurar os mne- 
mônicos — a função INSTR — não 
existe no BASIC do Spectrum. 


==, 
DT 





Bem mais rápido do que o programa para 
o Spectrum, o Assembler para os 
micros da linha TRS-Color proporciona 
igual eficiência. Economize 

tempo, aprendendo a trabalhar com ele. 


= TERRE 











A linha 10 pode provocar um erro FC 
quando o programa é rodado pela pri- 
meira vez. Não se importe com a men- 
sagem de erro e rode o programa nova- 
mente, que ele funcionará. 


U ASSEMBLER 


10 PMODE 0O:PCLEAR 1:CLEAR 3000: 
CLS: PRINT 6233," INICIALIZANDO”": 
R$=CHRS (13): POKE 146,1 

20 DIM SKS(1),K1(94),K2(94),TS( 
200) ,RR(100),2Z5(100) 

30 FOR CC=1 TO 94:READ KS,KI (CC 
),K2(CC) :C=CC/49:5SKS(C)=SKS(C)+ 
RIGHTS (STARS (CC), 2) +KS:NEXT 

40 DATA ADCA,185,1,ADDA,1B7,1,A 
DDD, 2Z43,2,ASL,120,3,CLR,127,3,€ 
MPA,177,1,CMPD,4275,2,CMPY,4284 
/2,BCC,36,4,BCS,37,4,BEQ,39,4 
50 DATA BHS,36,4,BLO,37,4,BMI,4 
3,4,BNE,38,4,BPL,42,4,BRA,32,4, 
LBRA,22,5,BSR,141,4,LBSR,23,5,C 
MPX,188,2,CMPU,4531,2,CMPS,4540 
(2, DEC,122,3 

60 DATA INC,124,3,JSR,189,3,LDA 
,182,1,LDB,246,1,LDD,252,2,LDS, 
4350,3,LDU,254,3,LDX,190,3,LDY, 
4286,3,L5SL,120,3,LSR,116,3 

70 DATA PSHS,52,1,PSHU,54,1,PUL 
 5,53,1,PULU,55,1,ROL,121,3,RORB, 
118,3,RTS,57,,STA,183,3,STB,247 
+ 3, STD, 253,3,8T8,4351,3,STU,255 
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E MANIPULAÇÃO DE PÓS-BYTES 
El USO DE RÓTULOS 
A 

E 





E CONVERSÃO AUTOMÁTICA DA 


LINGUAGEM ASSEMBLY PARA 
CÓDIGO DE MÁQUINA 


E COMO CALCULAR SALTOS E 


DESVIOS 


e 

BO DATA STX,191,3,S5TY,4287,3,SU 

BA,176,1,SUBD,179,1,ANDA,18B0,1, 

ABX,5B,,ANDCC,76,1,ASR,119,3,RT 

1,59,,SBCA,178,1,N0OP,18,,NEG,11 

2,9 

90 DATA BITA,181,1,BGE,44,4,BGT 
/46,4,BHI,34,4,BLE,47,4,BL5S,35, 

4,BLT,45,4,BRN,33,4,BVC,40,4,BV 

S,41,4,EXG,30,1,TFR,31,1 

100 DATA COM,115,3,CWAI,108,1,D 

AA, 25, , EORA,184,1,TST,125,3,LEA 

8,66,3,LEAU,67,3,LEAX,64,3,LEAY 
165,3,MUL,61,,0RA,138,1,0RB, 202 
ça 

110 DATA ORCC,74,1,5SEX,29,,SWI, 

63,,SWI2,4159,,5WI3,4415,,SYNC, 

19, EQU,-1,2,ECB,-2,1,FDB,-3,2, 

ARMB,-4, ,.JMP,126,3 

120 DIM XS(13),V(14),KK(13),YS( 

13) 

130 FOR C=0 TO 12:READ XS(C),Vl 

C), KK(C) , YS(C) :NEXT 

140 DATA PCR,253,7,,PC,253,8,D, 

= 243 ,1),M,=+ 242,1,7,X,159, U,Y 
,/191,,8,U,223,,PC 

150 DATA 8,255,,,t+,241,1,,+,24 

0,1,A,A,246,1,B,B,245,1,€CC,D,25 

1, 1,DP 

160 FOR J=0 TO 9:READ PUS(J),PU 
(J) :NEXT 

170 DATA PC,128,U,64,5,64,Y,32, 

X,16,DP,8B,D,6,B,4,A,2,€CC,1 

180 CLS: PRINT 643," ASSEMBLER"RS 

RSTAB(B)"G=LER DO GRAVADOR"RSSS 

TAB (8) "S=SALVAR NO GRAVADOR"RSR 

STAB(8)"A=MONTAR” 

190 PRINT 8296," E=EDITAR LINHA” 

RSRSTAB(B)"D=APAGAR LINHA"RSRST 

AB(B)"L=LISTAR NA TELA” 

200 AS=INKEYS:IF AS="" THEN 200 
210 JJ=INSTR("GSEDLA”,AS) 

220 IF JJ=0 THEN PRINT "<"AS">I 

NVALIDO":FOR J=1 TO 1000:NEXT:G 

OTO 180 

230 CLS:ON JJ GOSUB 1420,1450,1 

490,1710,1760,280 

240 PRINT €0," PRESSIONE <ENTER> 
PARA CONTINUARQUALQUER OUTRA T 

ECLA PARA MENU PRINCIPAL” 

250 AS=INKEYS:IF AS="" THEN 250 
260 IF AS<>RS THEN 180 

270 ON JJ GOSUB 1420,1450,1700, 
1710,1850,290:GOTO 240 

280 K=0:K9=0:P0=0 

290 P5=0 

300 PS=PS+1:IF PS<4 THEN K=K0O:P 

=PO0: PRINT 61," INICIO DA ETAPA"P 

S:GOTO 330 

310 PO=P:RETURN 

320 IF PS=3 THEN PRINT ” ERRO D 

E POSBYTE” 





COMO COLOCAR CÓDIGO DE 
MÁQUINA NA MEMÓRIA 
AUMENTA A VELOCIDADE 


330 GOSUB 1320 

340 GOSUB 1260:0P5S=CS:IF LEFTS( 

OP$S,1)="*" AND PS=3 THEN PRINT 

OPS 

350 IF LEFTS(OP$S,1)="*" THEN 33 

0 

360 IF OPS="END”" AND PS=3 THEN 

PRINT: PRINT" FIM.ULTIMO ENDE 

RECO"; P-1 

370 IF OP$="END”" THEN 300 

3B0 IF OPS<>"0RG”" THEN 420 

390 GOSUB1260:S=0:IF LEFTS(CS,1 
j=]*" THEN S=P:CS=MIDS (CS,2) 

400 P=VAL(CS)+S: IF PS=3 THEN PR 

INT: PRINT" ORG" ;P 

410 GoTo 330 

420 IF P=0 AND PS$=3 THEN PRINT” 
FALTA ORG” :P=35000 

430 CC=0:DF=0 

440 C=INSTR(SKS(CC),0PS):IF €<> 

O THEN GOSUB 530:GOTO 570 

450 C=INSTR(SKS(CC), LEFTS(0P3,4 

)J):IF C<>0 AND RIGHTS (0PS,1)<"C 

" AND MIDS(SKS(CC),C+3,1)<"A” T 

HEN GOSUB 530:GOTO 540 

460 IF C<>0 AND RIGHTS (0PS,1)=" 

B” GOSUB 530:GOTO 560 

470 C=INSTR(SKS (CC), RIGHTS (OPS, 

3)):IF C<>0 AND LEFTS(0PS,1)="L 

" GOSUB 530:GOTO 550 

480 CC=CC+1:IF CC<2 THEN 440 

490 IF PS=3 THEN PRINT 0PS 

500 GOSUB 1350:03=-02:RR(Q2)=P:I 

F C$="" THEN 340 

510 IF PS=3 THEN PRINT ” LINHA 

NÃO RECONHECIDA” 

520 GOTO 330 

530 C=VAL (MIDS (SKS(CC),C-2,2)): 

RETURN 

540 OP=K1(C)-32+16* (RIGHTS (OPS, 

1)="A"):K2=0:GOTO 580 

550 OP=K1(C)+4096:K2=5:GOTO 580 

560 OP=K1(C)+64:K2=1:GOTO 580 

570 OP=K1I(C):K2=K2(C) 

580 IF PS=3 THEN BY=P/256:GOSUB 
1240:BY=P-32768:GOSUB 1240:PRI 

NT” "OPS; 

590 IF OP>-1 THEN 740 

600 GOSUB 1260:ADS=CS:IF PS=3 T 

HEN PRINT ” ” LEFTS(ADS,10; 

610 ON -OP GOTO 620,630,660,730 

620 GOSUB 1860:IF NU=0 THEN RR( 

Q3)=R:GOTO 330 ELSE 1050 

630 IF PS=3 THEN PRINT TAB(20); 

640 GOSUB 690:BY=255ANDR:GOSUB 
1230 

650 IF B$=ADS THEN 330 ELSE 640 

660 IF PS=3 THEN PRINT TAB(20); 
670 GOSUB 690:BY=INT(R/256) :GOS 

UB 1230:BY=R-256*BY:COSUB 17230 
680 IF BS=ADS THEN 330 ELSE 670 
690 NN=INSTR(ADS,”",")J:IF NN=O T 








HEN BS=ADS:GOTO 710 

700 BS=LEFTS (ADS,NN-1) :ADS=MIDS 
(ADS, NN+1) 

710 IF LEFTS(BS,1)="8" THEN R=V 

AL("&H"+MIDS (B58, 2) )JELSE R=VAL(B 
8) 

720 RETURN 

730 GOSUB 1860:1IF NU=0 THEN P=P 
+R:GOTO 330 ELSE 1050 

740 B=239:TF K2=0 THEN 1140 

750 GOSUB 1260:ADS=CS:IF P5=3 T 

HEN PRINT " ” LEFTS(ADS,9,; 

760 IF K2>3 THEN 1040 

770 IF(K2<>3 OR (LEFTS(0PS,2)=" 

LD”")) AND LEFTS(ADS,1)=" 4" THEN 
ADS=MIDS (ADS,2) :DF=1:0P=0P-48: 

GOTO 1040 

780 IF RIGHTS(ADS,1)="]" THEN A 

DS=MIDS (ADS, 2,LEN(ADS)-2):B=B+1 

6 

790 IF OP<52 OR 0P>55 THEN 870 

B0O0 K2=1:R=0:AAS=ADS 

B1LO NN=INSTR(AAS,","):IF NN=0 T 

HEN U$S=AAS:GOTO 830 

820 US=LEFTS (AAS,NN-1) :AAS=MIDS 
(AAS, NN+1) 

B30 IF US=RISHTS (0P$,1) THEN 320 

840 NN=-1:FOR J=0 TO 9:IF US=PU 

S (Jd) THEN NN=J 

B50 NEXT:IF NN<O THEN 320 

860 R=R ORPU(NN):IF US=AAS THEN 
1140 ELSE 810 

B70 K2=3:C=INSTR(ADS,",")J:IF C= 

O THEN 1040 

B80 IF 0P<>30 AND 0P<>31 THEN 9 
50 

890 NN=INSTR(ADS,",") :US=LEFTS( 

ADS, NN-1) :GOSUB 930:N1l=H-1:IF H 
=0 THEN 320 

90€ US=MIDS (ADS, NN+1) :GOSUB 930 
“N2=H-1:IF H=0 THEN 320 

910 IF(BANDN1I)<>(BANDN2Z) THEN 3 
20 

920 R=16*N1I+N2:K2=1:GOTO 1140 
930 FOR J=1 TO 12:IF Y8(J)=US T 
HEN H=J 

940 NEXT:RETUARN 

950 C2=C+1:FOR J=0 TO 12:L=LEN( 
XS(J)):IF MIDS (ADS,C2,L)<>XS(J) 
THEN 980 

960 IF (B ORV(J)) AND 239<239 T 
HEN 320 

970 C2=C2+L:B=B AND V(J):IF KK( 
Jj THEN K2=KK[(J)-1 

980 IF J=9 THEN J2=C2:€2=C2+(C2 
-1)*(K2<6) 

990 NEXT 

1000 IF(15 AND B)=15 THEN B=B-6 
1010 IF PS=3 AND J2<=LEN (ADS) AN 
D KZ2<>7 THEN PRINT "ERRO DE IND 
EXACAO” :GOTO 330 

1020 IF(K2=0 AND C>2) OR (MIDS( 
ADS+",",J2,1)<>",") AND P8S=3 TH 
EN PRINT "ERRO DE ENDERECAMENTO 
"GOTO 330 

1030 ADS=LEFTS (ADS, C-1):IF J2=C 
TEEN R=0:GOTO 1060 

1040 GOSUB 1860:I1F NU=0 THEN 10 
60 

1050 IF PS=3 THEN PRINT" ENDERE 
CAMENTO NAO ENTENDIDO” 

1060 IF K2=7 THEN K2=3:GO0TO 108 
O 





1070 IF K2>3 THEN R=R-P-2+(0P>2 
55) +(B<>239)+(K2>4) :R=R-((K2=6) 
AND (R>-129) AND(R<128)):K2=K2-3 

1080 IF B=239 AND K2=3 THEN KZ2= 
2: IF AR<256 AND DF=0 THEN K2=1:0 
P=0P-32:1IF(240 AND 0P)=B0 THEN 

OP=0P-80 








1090 IF PS=3 AND((0P>231 AND OP< 

48)0R OP=141)AND(R<-128 OR R>12 
7) THEN PRINT ” DESVIO FORA DE F 

AIXA”;:GOTO 330 

1100 IF B=255 THEN B=159:K2=2 
1110 IF B<>239 THEN OP=0P-16:I1F 
K2=3 THEN K2=2:IF ABS(R+.5)<12 
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8 THEN K2=1:B=B-1:R=255 AND R 
1120 IF(15 AND B)=B AND R=0 THE 
N B=B-4:K2=0 

1130 IF(31 AND B)=B AND (R<l6 O 
R R>239) THEN B=(B-136)0R(31 AN 
D R):K2=0 

1140 IF PS=3 THEN PRINT TAB(20) 





1150 IF 0P=>0 THEN BY=0P/256:G0 

SUB 1220:BY=0P:GOSUB 1230 

1160 IF B<>239 THEN BY=B:GOSUB 

1230 

1170 IF K2=0 THEN 330 

1180 GOSUB 1200:IF K2=2 THEN BY 

=A/256:GOSUB 1230 

1190 BY=R-256*INT (R/256) : GOSUB 

1230:GOToO 330 

1200 IF PS=3 THEN PRINT * *; 

1210 RETURN 

1220 IF INT(BY)=O THEN RETURN 

1230 P=P+L:IF PS=3 THEN POKE P- 

1,255 AND BY 

1240 BY=255 AND BY:IF PS=3 THEN 
PRINT RIGHTS ("0"+HEXS(BT),2); 
1250 RETURN 

1260 IF K>N THEN CS5=" END” : RETUR 

N 

1270 K1l=K9+1:IF K9>=LEN(TS(K)) 

THEN CS=" FALTA MNEMONICO" : RETU 

RN 

1280 K9=K1l:IF MIDS(TS(K),KL,1)= 
" ” THEN 1270 

1290 IF K92LEN(TS(K)) THEN CS=MI 

DS (TS (K),K1,K9-K1) : RETURN 

1300 IF MIDS(TS(K),K9,1)<>2" TT 

HEN K9=K9+1:GOTO 17290 

1310 CS=MIDS(TS(K),K1,K9-K1) :RE 

TURN 

1320 IF K9<=LEN(TS(K)) AND P5S=3 

THEN PRINT RIGHTS(TS(K), LEN(TS( 

K))-K9+1); 

1330 K=K+1:K9=0:IF PS=3 THEN PR 
INT 

1340 RETURN 

1350 XS="" 

1360 IF CS<"A” OR CS$>="[" THEN 
1380 

1370 XS=XS+LEFTS (CS,1):CS=MIDS( 

CS,2):GOTO 1360 

1380 IF CS<>"” THEN RETURN 

1390 FOR Q2=1 TO VV: IF XS=Z5(Q2 
) THEN 1410 

1400 NEXT:VV=VV+1:Z5 (VV) =X5:02= 

VVU:BA (VV) =23000 

1410 RETURN 

1420 CLS:MOTORON: PRINT €161,"Po 

SICIÔONE O GRAVADOR, PRESSIONE Q 

UALQUER TECLA E APERTE c<PLAY>.” 
1430 US=INKETS: IF U$="" THEN 14 


30 
1440 OPEN"I”,4-1,"ASM":PRINT' C 


ARREGANDO PROGRAMA": INPUT 4&-1,N. 


:FOR J=1 TO N: INPUT 4-1, TS(J):N 
EXT:CLOSE 4&-1:RETURN 

1450 CLS:MOTORON: PRINT €161,"PO 
SICIONE O GRAVADOR , APERTE q 
RECORD> E PRESSIONE QUALQUER 
TECLA.” 

1460 US=INKEYS: IF US$="" THEN 14 
60 

1470 OPEN"O”,4-1,"ASM":PRINT” G 

RAVANDO PROGRAMA” :PRINT 4-1,N:F 

OR J=1 TO N:PRINT &-1,TS(J):NEX 

T:CLOSE 4-1:RETURN 

1480 PRINT 4-1,N:FOR J=1 TO N:P 
RINT4-1,TS(J) :NEXT:CLOSE&-1:RET 
URN 

1490 PRINT ” INTRODUZA O NUMERO 
DA LINHA (LI NHAS NUMERADAS DE 
DEZ EM DEZ)” 


1500 INPUT K:CLS 

1510 K2=K/10:IF K2>N THEN K2=N+ 
1:N=N+1:T5S(K2)="": PRINT €480,"" 
1520 IF K2<.1)l THEN K2=.1 

1530 IF K2=INT(K2) THEN 1550 
1540 K2=INT(K2)+1:FOR K3=N TO K 
2-1 STEP -L:TS(KI3+1)=TS(K3) :NEX 

T:N=N+1:T5(K2)="" 

1550 P1l=1478B:P0=P1 

1560 PRINT €44B,K;TAB(6) TS(K2): 
P9=PO+LEN(TS (K2)) 

1570 IF PI<PO THEN Pl=PO 

1580 IF Pl>P9 THEN Pl=Pl-1 

1590 PB=PEEK (Pl) :POKE P1,63 AND 
PB 

1600 P7=0:AS=INKEYS:IF AS="" TH 
EN 1600 

1610 IF AS=AS THEN POKE P1,PB:R 
ETURN 

1620 IF AS=CHRS(9) THEN POKE Pl 
, PB:P1l=Pl+1:GOTO 1580 

1630 IF AS=CHRBR$S(B) THEN POKE Pl 
. PB:Pl=Pl-1:GOTO 1570 

1640 IF AS=CHBRS(10) THEN AS="": 

GOTO 1670 

1650 IF AS=CHRS (94) THEN AS=" º 

+MIDS (TS (K2) ,P1I-PO+1,1):P7=-1:6 

OTO 1670 

1660 IF AS<” ” THEN 1600 

1670 IF P1l-PO+1>LEN(TS(K2)) THE 

N TS(K2) =LEFTS(TS (K2), PI-PO)J+AS 
:'GOTO 1690 

1680 TS(K2) =LEFTS(TS(K2).P1-P0O) 

+AS+RIGHTS (TS (K2) , LENC(TS(K2))-P 
1+P0-1) 

1690 Pl=P1-(LEN(AS)>0) +P7:GOTO 
1560 

1700 PRINT 832,"":K=kK+10:GOTO 1 
510 

1710 IF N=0 THEN CLS:PRINT” NAD 

A A APAGAR":FOR C=1 TO 1000:NEX 

T:RETURBN 

1720 CLS: PRINT"INTRODUZA NO DA 
LINHA (LINHAS NUMERAD 

AS DE DEZ EM DEZ)” 

1730 INPUT K:kK2=K/10 

1740 IF K2>N OR K2<1 OR KZ2<>INT 
(K2) THEN PRINT” ESTA LINHA NAO 
EXISTE" : RETURN 

1750 K=K2:FOR K3=K2 TO N:TS(K3) 
=TS (K3+1) :NEXT:N=N-1: PRINT 695, 
K*10;" ";TS(K) : RETURN 

1760 IF N=0 THEN PRINT ” NADA A 
LISTAR” :FOR C=1 TO 1000:NEXT:R 
ETURN 

1770 PRINT” INTRODUZA O NO DA 
PRIMEIRA E DA ULTIMA LINHA (L 
INHAS NUMERA-DAS EM MULTIPLOS 
DE 10)” 

1780 INPUT K,K2:K=INT(K) :K2=INT 
(K2) :K1=K/10:K2=K2/10 

1790 IF K2>N THEN K2=N 

1800 IF K1l<l THEN Kl=1 

1810 IF K2<K1l AND K2=N THEN RET 

URN 

1820 IF K2<K1l THEN CLS: PRINT ” 

CONJUNTO DE LINHAS INVALIDO”:GO 

TO 1770 

1830 CLS:PRINT 896,;:FOR K3=K] 

TO K2:PRINT K3*10”" "TS(K3):NEXT 

1840 RETURN 

1850 K=K2-K1l:K1l=K2+1:K2=K1I+K:IF| 
N=0 THEN 1760 ELSE 1790 














1860 NU=0:R=0 

1870 S=1 

1880 IF ADS="" THEN RETURN 

1890 XS=LEFTS (ADS,1) :BD$=MIDS (A 
DS,2):IF X$="*" THEN AR=R+P*S:AD 
$=BD$:GOTO 1870 

1900 IF X$="+" THEN ADS=BDS:GOT 
O 1880 

1910 IF X$="-" THEN ADS=BDS:5=- 
S:GoTo 1880 

1920 Q=0:IF XS<D"t” THEN 1950 
1930 IF BD$>="0" AND BDS<"2" TH 
EN 0Q=0*2+ASC (BDS) -48: BDS=MIDS (B 
DS,2):GOTO 1930 

1940 R=R+0*S:ADS=BDS:GOTO 1870 
1950 IF XS<>"s” OR BDS<"0” OR B 
DS>"F” THEN 1980 

1960 Q2=VAL ("LH"+LEFTS (BDS,1)): 
BDS=MIDS (BD$S,2) :Q=0*16+02:XS5=LE 
FTS (BDS,1) 

1970 IF(X5S>"/" AND XS<":”") OR ( 
Xx8>"e” AND XS<"G”) THEN 1960 EL 
SE R=R+0*S:ADS=BD$S:GOTO 1870 
1980 IF XS<"A” OR XS>"Z”" THEN 2 
010 

1990 CS=ADS:GOSUB 1350:IF CS<>” 
" GOSUB 1390 

2000 R=R+RR (02) *S:AD$S=CS:GOTO 1 
870 

2010 IF XS<"0” OR 'X$>"9” THEN R 
=0:NU=1:RETURN 

2020 IF AD$>"/" AND ADS<":" THE 
N Q=0*10+ASC (ADS) -48: AD$=MIDS (A 
D$,2):GOTO 2020 

2030 R=R+S*0:GOTO 1870 


COMO FUNCIONA O PROGRAMA 





Não se esqueça de reservar um espa- 
ço suficiente de memória para seu pro- 
grama, usando CLEAR antes de 
rodá-lo. 

Para introduzir o seu programa pres- 
sione a tecla E. Ele pedirá então um nú- 
mero de linha. Neste programa cada ins- 
trução em mnemônico deve ser introdu- 
zida em uma linha de BASIC. E preci- 
so também que os números de linha se- 
jam múltiplos de 10 e cada linha conte- 
nha apenas um comando Assembly com 
seus respectivos operandos. 

A primeira linha deve abrigar o en- 
dereço inicial da porção da memória on- 
de será colocada a rotina em código. E 
necessário que esse endereço esteja na 
área reservada por CLEAR. Para espe- 
cificar sua origem, usamos o comando 
ORG seguido do endereço inicial. 

Se um endereço inicial não for espe- 
cificado, o programa tentará posicionar 
o Assembler a partir do endereço 35000, 
que pertence à memória ROM, O resul- 
tado não será satisfatório, uma vez que 
não se pode colocar códigos na ROM, 
O programa procede assim para evitar 
que o Assembler seja colocado em uma 
área prejudicial ao funcionamento da 
máquina. Quando o endereço acima é 


usado, o programa comunica: “origem 
não encontrada”. 

Normalmente, são utilizados os mne- 
mônicos padrão do 6809. Números he- 
xadecimais devem ser precedidos de $ 
(cifrão), números binários, de % (por- 
cento). Algarismos sem prefixo são con- 
siderados decimais. 

Alguns Assembler para o TRS-Color 
reconhecem códigos ASCII, se estes fo- 
rem precedidos de * (apóstrofo) ou 1 
(ponto de exclamação). Não é o caso de 
nosso programa. Assim, o comando 
FCC, que manipula caracteres ASCII, 
não pode ser usado. 

Para editar linhas, empregue as teclas 
do cursor. As setas “direita” e “esquer- 
da'' movimentam o cursor ao longo da 
linha; a seta “para cima” insere e a se- 
ta “para baixo” apaga. 

A última linha do programa deve ser 
END; o Assembler criará uma linha des- 
se tipo, caso esqueçamos de fazê-lo. 

Se, depois de digitarmos uma linha, 
pressionarmos outra tecla que não EN- 
TER, o programa voltará ao menu. Se 
então pressionarmos L, os mnemônicos 
serão listados para uma conferência. 

Caso haja algum erro, retorne ao me- 
nu e pressione E. Especifique então o 
número da linha a ser corrigida. 

Se quisermos inserir uma nova linha 
entre duas já existentes, devemos entrar 
no modo de edição e dar a ela um nú- 
mero intermediário. Uma nova listagem 
mostrará a nova linha no lugar correto, 
sendo que todas as linhas terão números 
múltiplos de 10. Apenas uma linha de ca- 
da vez pode ser inserida dessa maneira. 

Para apagar uma linha, retorne ao 
menu e pressione D. Especifique então 
o número da linha a ser apagada. Quan- 
do não houver mais modificações a fa- 
zer, retorne ao menu e pressione A. O 
programa em Assembly será então “mon- 
tado” na memória. Quando o processo 
terminar, o endereço final do programa 
em código será mostrado na tela. 

A opção de gravação — tecla S — 
grava apenas o programa em Assembly 
ou programa fonte. Para gravar o As- 
sembler, use o caminho normal. Para 
gravar O programa em código — ou pro- 
grama objeto — é necessário sair do As- 
sembler usando a tela BREAK: 


CSAVEM "NOME", INÍCIO, FIM, 
DEFEXEC 


NOME é a denominação do progra- 
ma: INÍCIO é o endereço inicial defi- 
nido por ORG; e FIM, o endereço final 
fornecido pelo programa após a 
montagem. 

O último número, DEFEXEC, diz ao 
TRS-Color por onde começar a execu- 
tar a rotina em código. Geralmente, ele 




































COMO ENCONTRAR ERROS EM 

PROGRAMAS LONGOS 
Mesmo o programador mais expe- 
riente terá problemas em digitar progra- 
mas longos como esse Assembler. Não 
importa a destreza de seus dedos: fa- 
talmente, em algum lugar, um erro se- 
rá cometido. 

Muitos desses erros são encontra- 
dos quando se confere a listagem. Às 
mensagens de erro do micro ajudarão 
também, se procurarmos saber O que | 
significam. 

Tais mensagens, contudo, podem 
não ser suficientes para detectar o lo- 
cal de um erro em um programa muito 
longo. Nesses programas, uma linha 
| pode ser executada sem problemas 
muitas vezes, só vindo a provocar um 
erro quando uma variável assumir um 
valor incompatível devido a um erro de 
| digitação cometido em outra parte do 
programa. 

Felizmente, o TRS-Color conta com 
uma função de rastreamento — trace 
— que facilita a localização de erros. 

Tal função é ativada pelo comando 
TRON, que deve ser usado no modo 
imediato, sem número de linha. Quan- 
do rodamos o programa, ela nos mos- 
tra o número da linha que está sendo 
| executada. 

Para desativar a função de rastrea- 
mento, use o comando TROFF. 


é igual ao endereço inicial. Agora pode- 
mos montar qualquer programa a par- 
tir de sua listagem em Assembly. 


Para testar o Assembler, digite o pro- 
grama de deslocamento da tela para a 
direita apresentado na página 219. Esse 
programa resultará nos seguintes 
códigos: 

BE 06 00 E6 B2 34 04 C6 IF A6 


82 A7 01 5A 26 F9 35 04 E7 84 
8c 04 00 ZE EA 39 





Em algumas das máquinas compati- 
veis com o TRS-Color é possível aumen- 
tar a velocidade do programa acrescen- 
tando POKE 65495,0 no início da linha 
180. Se isto for feito, devemos modifi- 
car outras linhas a fim de que a alta ve- 
locidade não prejudique a gravação em 
fita. Assim, adicione POKE 65494,0 ao 
início das linhas 1420 e 1450. 


E = tu 
+ 
! E z | 
| | 

| | 

| | 

| | | 
hi | | | 1 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
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“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
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“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 
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PROGRAMAÇÃO BASIC 


Os computadores são capazes de executar milhões de operações 
lógicas por segundo. Veja como isso funciona. 


PROGRAMAÇÃO DE JOGOS 
Incorpore objetos ao programa de aventura e enriqueça seu 
vocabulário com novos verbos. 


PROGRAMAÇÃO BASIC 


Aprenda a localizar e a corrigir os erros de um programa à 
medida que eles aparecem e evite dores de cabeça. 


CÓDIGO DE MÁQUINA 


Figuras móveis produzidas no Apple e no ZX-81. 
Como movimentar os desenhos. 
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